# cik reižu simulē eksperimentu
numExperiments <- 10000
# cik reižu neviens nedabūja savu cepuri 
total <- 0
# atkārto 10 tūkstošus reižu:
for (i in 1:numExperiments) {
  # x - visi skaitļi no 1 līdz 100 pareizā secībā
  x <- 1:100
  # y - visi skaitļi no 1 līdz 100 nejauši sajauktā secībā
  y <- sample(1:100)
  # all(??) - pārbauda, vai tas, kas rakstīts iekavās VIENMĒR ir pareizi. 
  # Ja  x[n] != y[n] (t.i. x[n] un y[n] nav vienādi, kur n = 1,2,3,...,100)
  # tad palielina total - pieskaita vieninieku
  if (all(abs (x-y)>1)) { total <- total + 1} 
}
# pašās beigās izdala "veiksmīgo" eksperimentu skaitu ar visu eksperimentu skaitu
total/numExperiments